Public Class CPurchaseInvoice
    Dim _intInvoiceID As Integer
    Dim _strInvoiceSeqID As String
    Dim _dtVoucherDate As Date
    Dim _intVendorID As Integer
    Dim _intStockVendorID As Integer
    Dim _strBillNo As String
    Dim _dblBalAmt As Integer
    Dim _dtBillDate As Date
    Dim _dtDueDate As Date
    Dim _strPayMode As String
    Dim _dblIvoiceAmt As String
    Dim _dblTotTaxes As Double = 0
    Dim _dblTotDisc As Double = 0
    Dim _dblGrossAmt As Double
    Dim _dblPaidAmt As Double = 0
    Dim _strDcID As String
    Dim _strRemarks As String
    Dim _dblSchmDisc As Double = 0
    Dim _iVoucherType As Integer


    Public Property InvoiceID() As Integer
        Get
            Return _intInvoiceID
        End Get
        Set(ByVal value As Integer)
            _intInvoiceID = value
        End Set
    End Property
    Public Property InvoiceSeqID() As String
        Get
            Return _strInvoiceSeqID
        End Get
        Set(ByVal value As String)
            _strInvoiceSeqID = value
        End Set
    End Property
    Public Property VoucherDate() As Date
        Get
            Return _dtVoucherDate
        End Get
        Set(ByVal value As Date)
            _dtVoucherDate = value
        End Set
    End Property

    Public Property VoucherType() As Integer
        Get
            Return _iVoucherType
        End Get
        Set(ByVal value As Integer)
            _iVoucherType = value
        End Set
    End Property
    Public Property VendorID() As Integer
        Get
            Return _intVendorID
        End Get
        Set(ByVal value As Integer)
            _intVendorID = value
        End Set
    End Property

    Public Property StockVendorID() As Integer
        Get
            Return _intStockVendorID
        End Get
        Set(ByVal value As Integer)
            _intStockVendorID = value
        End Set
    End Property

    Public Property DcID() As String
        Get
            Return _strDcID
        End Get
        Set(ByVal value As String)
            _strDcID = value
        End Set
    End Property

    Public Property BillNo() As String
        Get
            Return _strBillNo
        End Get
        Set(ByVal value As String)
            _strBillNo = value
        End Set
    End Property

    Public Property BalanceAmt() As Double
        Get
            Return _dblBalAmt
        End Get
        Set(ByVal value As Double)
            _dblBalAmt = value
        End Set
    End Property

    Public Property BillDate() As Date
        Get
            Return _dtBillDate
        End Get
        Set(ByVal value As Date)
            _dtBillDate = value
        End Set
    End Property
    Public Property DueDate() As Date
        Get
            Return _dtDueDate
        End Get
        Set(ByVal value As Date)
            _dtDueDate = value
        End Set
    End Property
    Public Property PayMode() As String
        Get
            Return _strPayMode
        End Get
        Set(ByVal value As String)
            _strPayMode = value
        End Set
    End Property
    Public Property InvoiceAmt() As Double
        Get
            Return _dblIvoiceAmt
        End Get
        Set(ByVal value As Double)
            _dblIvoiceAmt = value
        End Set
    End Property
    Public Property TotalTax() As Double
        Get
            Return _dblTotTaxes
        End Get
        Set(ByVal value As Double)
            _dblTotTaxes = value
        End Set
    End Property
    Public Property TotalDisc() As Double
        Get
            Return _dblTotDisc
        End Get
        Set(ByVal value As Double)
            _dblTotDisc = value
        End Set
    End Property

    Public Property SchmDisc() As Double
        Get
            Return _dblSchmDisc
        End Get
        Set(ByVal value As Double)
            _dblSchmDisc = value
        End Set
    End Property
    Public Property GrossAmt() As Double
        Get
            Return _dblGrossAmt
        End Get
        Set(ByVal value As Double)
            _dblGrossAmt = value
        End Set
    End Property
    Public Property PaidAmt() As Double
        Get
            Return _dblPaidAmt
        End Get
        Set(ByVal value As Double)
            _dblPaidAmt = value
        End Set
    End Property
    Public Property Remarks() As String
        Get
            Return _strRemarks
        End Get
        Set(ByVal value As String)
            _strRemarks = value
        End Set
    End Property

End Class
